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> 16 | 
EDTSFILL = fill command 16=Sep-1984 00:22:47  VAX#11 BLiss-32_v4.0-74 Pace _ 11 
Verseen TFRs 99:86:o, Pee ehasteRceb i secSriuz.ou;1 °° ca} 


3 1 0001 O XTITLE ‘EDTSFILL = fill command' $ 
: é 900¢ MODULE EDTSFILL ( ! FILL command ; 
3 00 IDENT = ‘'v04-000' ! File: FILL.BLI, Edit: JBS2002 . 
; 4 0004 ) = ; 
H 5 0005 1 BEGIN 5 
; 6 0006 1! 3 
H 4 sat 4 } PARALLEL ELESALESE LESSEE EEE SER ERE RESET ESSE SERRE EERE E EEE EE ESTEE ETP Sy P 4 
; !® . 3 
; 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ° 
; 10 0010 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * . 
3 V’ Oot 3 : ALL RIGHTS RESERVED. . $ 
° .* * j ° 
3 ig $18 1 '® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
; 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 3 
; 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 3 
; 16 Bog 1 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
3 17 001 1 !® PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 3 
: Ys id : :* TRANSFERRED. * : 
; '® * 3 
; 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * F 
: 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * $ 
3 $$ O58 ! be CORPORATION. * 3 
: ‘@ + ’ 
: 24 ig 1 !® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 3 
3 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * F 
; & 0026 1 !* * 3 
i; av 0027 1 !* * $ 
3 28 0028 1 eee eee eee Ree ARE RA AEAEAREEE REAR AAA AAA AEA AAA AEE REE REE 5 
; 0029 1! 3 
; 30 0030 1 F 
ae 0031 1 !++ 3 
; 32 O36 1! FACILITY: EDT == The DEC Standard Editor : 
: 33 0033 1! é 
; %% 0034 1 ! ABSTRACT: 5 
;. 0035 1! F 
3 36 0036 1! This module implements the fill command for Line mode | 3 
.- 0037 1! or change mode. 3 
; BS 0038 1! 3 
; 39 0039 1 ! ENVIRONMENT: user mode. 3 
; 40 0040 1! F 
3 $3 ape : : AUTHOR: Bob Kushlis, CREATION DATE: 11-OCT-1979 3 
3 43 0045 1 ! MODIFIED BY: F 
3; «644 0044 1! F 
3; «45 0045 1! 5-90) - Regularize headers. JBS 05-Mar-1981 ; 
: 46 0046 1 ! 2-002 - Improve the appearance of the Listing. JBS 14-Jun-1983 : 
; res 0047 ! lee ; 
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EDTSFILL EDTSFILL = fill command 16-Sep-1984 00:22:47 VAX-11 Bliss-32 V4.0-74 P 
¥O4~000 EDTSSFILL_TXT = fill command 13-808-1 3B 90338364 NTR SUMGMASTERSCEDT  SRCSFILL.BLI:1 na (33 
: 8 655] XSBTTL "EDTSSFILLTXT - fiLL command’ | 

85 G2¢ | GLOBAL ROUTINE EDTSSFILL_TXT ( ' FELL command 

6 $28 NLINES ! Number of Lines to process 

88 0658 

89 659 ++ 

4 Boey FUNCTIONAL DESCRIPTION: 

g p66 Do filling, in both Line and change mode. 

94 0664 FORMAL PARAMETERS: 

95 0665 

96 0666 NLINES The number of Lines to fill 

97 0667 

98 0668 IMPLICIT INPUTS: 

99 0669 


EDTS$G_LN~LEN 
EDTS$A_WK~LN 


IMPLICIT OUTPUTS: 

NONE 

ROUTINE VALUE: 

The number of Lines filled. 
SIDE EFFECTS: 
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6 0686 NONE 

7 0687 

a 0688 - 

9 

0 

1 0691 

é 069 EXTERNAL ROUTINE 
069 EDTSSFMT_CHWID, 

i 0694 EDTSS$DEL~CURLN, 

5 0695 EDTS$SINS 

6 0696 EDTSSSTART_INS, 
69 EDTS$$END_IRS, 

a 0698 EDTS$RD_AXTLN; 

9 0699 

0 0700 EXTERNAL 

1 07 1 EDT$$G_WD_WRAP, 

; 7 2 EDT$$G_T1~WID, 
070 EDTS$T—LN~BUF , 
0704 EDT$$G_LN-LEN, 
0705 EDTSS$A-WK-LN : REF LIN_BLOCK; 
8509 

7 70 EL 

8 07 PUTLINE; 

9 07 


14 
EDTSFILL FILL = fill comman 1$-Se -1984 00:22:47 VAX-11 Bliss-32 V4.0-74 
04200 SFILL_TXT = fill command 14-Sep-19 4 19:38:06 DL SKSVMSMASTERSCEDT SRCSFILL-BLIs1 
LOCAL 

MARGIN, ! The column number of the right margin. 

COL, ' Current column of filled Line buffer. 

I ! Index into the input Line. 

uC, ' Count of Lines processed. 

LP, ! Pointer into filled Line buffer. 

7s ' Pointer used when scanning back for spaces. 

REM, ! No of characters remaining after fill Line. 

LEN, ! Length of input Line. 

NL; ! No of new Lines created. 


14 
Determine the margin. 


IF (.EDTS$G_WD_WRAP NEQ 256) THEN MARGIN = .EDTS$G_WD_WRAP ELSE MARGIN = .EDT$$G_TI_WID - 1; 


14 

' Set the filled Line buffer to empty, 

' The column number to 0, 

And the count of Lines processed to 0. 


LP = CHSPTR (EDTSST_LN_BUF) 


cor = 6; 
1 =_-EDTSSA_WK_LN CLIN LENGTH); 


+ 
Loop until NLINES have been processed. 


INCR J FROM 1 TO .NLINES DO 
BEGIN 


Strip trailing blanks and tabs 


LEN = .EDTSSA_WK_LN CLIN LENGTH); 
SP = CHSPTR (EDTSSA_WK_LA CLIN_TEXT], .LEN); 


WHILE CHSPTR_GTR (.SP, EDTS$A_WK_LN CLIN_TEXT]) DO 
SP = CHSPLUS (.SP, -1); 
IF (C(CHSRCHAR (.SP) NEQ 2C° *) AND (CHSRCHAR (.SP) NEQ ASC_K_TAB)) THEN EXITLOOP; 
ty -LEN = 1; 


109 09 09 09 SI NINN SS NN NNSA OP AA AAA AMM MMIII EEE 


IF (.LEN NEQ 0) 
HEN 
BEGIN 
INCR I FROM 0 TO .LEN DO 
BEGIN 
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IF (.J EQL .LEN) 
THEN 


NS 4 


H 14 
EDTSFILL EDTSFILL = fill command 16-Sep-1984 00:22:47 VAX-11 Bliss-32 V4.0-74 Page 5 
Oa 000 EDTSSFILL_TXT = fill command 1o=8e8= 1982 99°38 366 DLSKSVMEHASTERSCEDT SRCSFILL.BLI:1 . (3) 
: 137 Ore CHSWCHAR (%C° ', LP) 
3 ih ares CHSWCHAR (CHSRCHAR (CHSPTR (EDTSSA_WK_LN CLIN_TEXT], .1)), .LP); 
: 201 O77) COL = .COL + EDTSSFMT_CHWID (CHSRCHAR_A (LP), .COL); 
3 $08 $738 IF (.COL GTR .MARGIN) 
$ Spe Bere THEN 
; 205 775 PUTLINE : 
; 206 pers 6 BEGIN 
3 gor 0777 6 !+ 
: 208 0778 6 ! Back up to a space. 
; 209 0779 6 !- 
; 210 0780 6 SP = CHSPLUS (.LP, -1); 
3 21) 0781 6 
3 sig 144 6 WHILE (CHSRCHAR (.SP) NEQ %C° *) DO 
: 2 783 6 
; 214 0784 7 IF CHSPTR_EQL (.SP, CHSPTR (EDT$$T_LN_BUF)) 
3 2D 0785 6 
; 26 0786 6 LEAVE PUTLINE | 
; aw 0787 6 ELS 
; 218 0788 6 SP = CHSPLUS (.SP, -1); 
; 219 0789 6 
; geo 0790 6 !+ 
s gel 0791 6! Insert the new Line. 
; $36 t45 4 6 !- 
3 22 0793 6 EDTSSSTART_INS (); 
3 224 0794 6 EDTSSINS_LN (CHSPTR (EDTSST_LN_BUF), CHSDIFF (.SP, CHSPTR (EDTS$$T_LN_BUF))); 
; 225 0795 6 EDTSSEND_INS (); 
> 226 0796 6 NL = .NL + 1; 
; 287 0797 6 !¢ 
; 228 0798 6 ! And move the remaining characters to the beginning 
; $$3 0799 6! of the buffer. 
3 § 0 0800 6 !- 
s gor 0801 6 P = CHS$PLUS (.SP, 1); 
; 232 0802 6 EDTSSCPY_MEM (CHSDIFF (.LP, .SP), .SP, CHSPTR (EDTS$T_LN_BUF)); 
3 @39 0803 6 COL. = 0; 
3; 234 0804 6 REM = CHSDIFF (.LP, .SP); 
; 235 805 6 LP = CHSPTR (EDT$$T_LN_BUF); 
; $36 806 6 
3 és 0807 6 DECR I FROM .REM - 1 TO 0 DO 
; 238 0808 6 COL = .COL + EDTSSFMT_CHWID (CHSRCHAR_A (LP), .COL); 
: $26 O81 § END 
: $03 oBi} END 
$ 28 $813 4 
> 264 0814 4 EDTSSDEL_CURLN (); 
; oeie 3 evsen 
: <3 B17 '¢ 
: 248 18 ! Line was blank, break the fill at this point by inserting 
3 3 Y whatever remains from the previous Line. 
: 251 1 4 BEGIN 
3 26 ¢ 4 !+ 
; 25 0. 4 ! Insert the remainder of new Line. 


EDTSSRD_NXTLN (); | 
NL = .NC + 1; 


END; 


14 
EDTSFILL DISFILL = fill command 14. Sep-1984 1:22:47 VAX-11 Bliss-32 V P 6) 
TO ob DISSFILL_TXT = fill command 14- =300-1 382 90:38'06 DISK XSVMCH TER: athe See FILL.BL1;1 ep (3) 
6 = 
$ Fhe ee (.LP, CHSPTR (EDTS$T_LN_BUF)) 
25 : ED TSSSTART_INS (); 
60 H EDTSSINS_LA (ED pTsér LUN BUF, CHSDIFF (.LP, CHSPTR (EDTS$T_LN_BUF))); 
61 8 EDTSSEND_INS (); 
6¢ 8 NL = Mt + 1; 
6 8 LP = CHSPTR (EDTSS$T_LN_BUF); 
8 COL = 0; 
53 END; | 
8 
83 
83 
84 
84 
84 


If CHSPTRNEQ (LP, CHSPTR (EDTSST_LN.BUF)) 
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8 

8 

8 BEGIN | 

84 EDT$$START_INS (); 

84 EDTS$SINS_LN CEpTss1 _LUN_BUF, CHSDIFF (.LP, CHSPTR (EDTSS$T_LN_BUF))); | 

84 EDTSSEND_INS (); 

84 NL = .NL + 1; 

85 END; 

85 | 

85 RETURN (.NL); 

85 END; ! of routine EDTSSFILL_TXT | 
| 
| 

.TITLE EDTSFILL EDTSFILL - fill command 
SIDENT \V04-000\ 

.EXTRN EDTSSFMT -CHWID EDTS$$DEL_CURLN | 

SEXTRN EDTSSINS-LN, EDTSS$START_INS 
TEXTRN EDTSSEND~ INS, EDT$$RD NRTLN 
EXTRN EDTS$G_WD_WRAP, EDTSSG_TI 
~EXTRN EDTS$T— =LN “Bur. EDTSSG. cn. cen 
.EXTRN EDTSSA~ | 
-PSECT _ EDTSCODE .NOURT. SHR, PIC,2 | 
OFFC 00000 -ENTRY EDTSSFILL_TXT, Save R2,R3,R4,R5,R6,R7,R8.- ; 088 
5E 10 C2 0000 SUBL2 #16, S ; 
30 000000006 99 00 9009 MOVL — EDT$$G_WD_WRAP, RO ; 0725 

00000100 8F 0 01 0000 CMPL = RO, «#256 ; 

5 13 0001 BEQL : | 
bE 9 bd 9 1 MOVL RO, MARGIN : 
iy 1 BRB ’ 
6E 000000006 00 1 ¢ OO1A 1$: SUBL3 DT$$G_TI HID MARGIN ; 
6 000000006 i g 2$: MOVAB eots T_LN_BUF > : ae 
50 000000006 b0 8 MOVL EDTS$SA_WK_LN, RO : 0735 | 
6 A 000 MOVZBL (RO), T : 
| 
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K 14 | 
EDTSFILL man 16-Sep-1984 00:22:47 VAX=11 Bliss-32 V4.0-74 Page 8 
¥04=000 L_IXT = fiLU command Veagee~ TSBs F8:58:65 | NN ebeGhketeaccebe sacSeruc.our:1 8% ¢s8 
000000006 00 EB 196 CALL n, EDTSSFMT_CHWID : | F 
04 AE CO 0010 ADDL : ; 
¢ F4 00111 14$:  SOBGEQ : ; 
FFS7 58 1 A F1 001146 15$: ACBL. LEN, #1, I, 8$ + 0762 F 
000000006 00 09 FB 11A CALLS #0, EDTS$SDEL_CURLN + 0814 3 
49 1 121 BRB $ : 0758 F 
50 000000006 00 4: 103 16$:  MOVAB EDTS$T_LN_BUF, RO + 0826 : 
‘ § 93 06150 Sror | ¥5g *° 
000000006 99 FB 4 F CALLS #0 otses raat tus t 0829 ; 
2 000000006 3 136 MOVAB EDTS F,7RO + 0830 : 
7E 6 ‘ 0130 SUBL3. RO LP NSB : : 
000000006 F 00141 PUSHAB EDfS$$T_LN_BUF : ; 
000000006 00 : FB 00147 CALLS 2, EDTSSINS_L : ; 
000000006 00 FB 014g CALLS > EDTSSEND~ iNS + 0831 ; 
0c AE 06 0015 INCL : 083¢ : 
56 000000006 00 9E 00158 MOVAB EDTSsr _LN_BUF, LP + 083 ; 
04 AE D4 0015F CLRL 3: 0834 3 
000000006 00 00 FB 00162 178: ‘CALLS #0. EDTSSRD_NXTLN + 0837 ; 
OC AE 06 00169 INCL NL : 0838 ; 
FECA 08 AE 01 04 AC F10016C 18$: ACBL  NLINES, #1, J, 3$ : 0758 ; 
50 000000006 00 9€ 00174 MOVAB EDTS$T_LN_ buF RO > 084 ; 
50 56 01 00178 CMPL LP, RO” : ; 
29 13 OO17E BEQL ‘19 : : 
000000006 00 00 FB 00180 CALLS #0, EDTS$START_INS + 0846 ; 
50 000000006 00 4 00187 HOVAB EDTSST_LN N_BUF ,~RO > 0847 ; 
7E 56 50 ¢ 00185 SUBL FO LP? -TSP) : ; 
000000006 00 9F 0019 PUSHAB EDtsst: LN BUF : ; 
000000006 00 02 FB 00198 CALLS 2, EDTS$SINS : ; 
000000006 00 00 FB 0019F CALLS * EDTSSEND™ iNS + 0848 : 
OC AE 06 001A6 INCL NL” > 0849 : 
50 OC AE DO 001A9 19$:  MOVL NL, RO : 085 ; 
04 001AD RET > 085 : 
; Routine Size: 430 bytes, Routine Base: _EDTSCODE + 0000 : 


) 
bis 
EDTSFILL EDTSFILL = fill command 6-50 9 VAX=11 Bliss-32_V4.0-74 Page 9| 
Oa e000 EDTSSFILL_TXT = fill command a 198 99: 36:06 DISKSVMSMASTER:CEDT.SRCJFILL.BLI;1 . (4) | 
: 287 0856 1 END ! of module EDTSFILL 
288 0887 1 . | 
; 4289 858 0 ELUDOM 
| 
| 
; PSECT SUMMARY 
3 Name Bytes Attributes 
: _EDTSCODE 430 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
: : cocceses Symbols -<o----- Pages Processing 
: File Total Loaded Percent Mapped Time | 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 12 3 40 00:00.2 
: ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACEBACK/LIS=LIS$:FILL/OBJ=OBJ$:FILL MSRC$:FILL.BLI/UPDATE=(ENHS:F ILL) 
; ptse: 430 code + 0 data bytes 


un Time 


: Lines/CPU Min: 
> Memo Used: 


: phi y Times 00:26:2 
; Lexemes/CPU-Min: Sate 


139 pages 


. oer Mens Complete 


| 
COMMAND QUALIFIERS 
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